COMMENT ⊗   VALID 00002 PAGES
C REC  PAGE   DESCRIPTION
C00001 00001
C00002 00002	BEGIN "REDTST"
C00010 ENDMK
C⊗;
BEGIN "REDTST"
REQUIRE "VIXHDR.SAI[VIS,HPM]" SOURCE_FILE;
REQUIRE "REDPIC.SAI[VIS,HPM]" SOURCE_FILE;

STRING FN;
PRINT("FILE NAME:"); FN←INCHWL;

   BEGIN
   INTEGER ARRAY PIC[0:RDFDIM(FN)];
   INTEGER I;

   GETRDF(FN,PIC[0]);
   PRINT(PIC[0]," PICTURES ",'15&'12);
   FOR I←1 STEP 1 UNTIL PIC[0] DO
      BEGIN
      PRINT("PIC ",I,"  ",PIC[PIC[I]+PCLN],"x",PIC[PIC[I]+LNBY],"x",
                          PIC[PIC[I]+BYBI],'15&'12);
      PUTPFL(PIC[PIC[I]],"DSK:"&CVS(I)&".TMP[TMP,HPM]");
      END;
   END;

END "REDTST";